home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / PAS_0793 / NAP_TEST.PAS < prev    next >
Pascal/Delphi Source File  |  1993-07-15  |  2KB  |  43 lines
  1. {─ Fido Pascal Conference ────────────────────────────────────────────── PASCAL ─
  2. Msg  : 219 of 228
  3. From : Warren Zatwarniski                  1:140/111.0          14 Jul 93  22:45
  4. To   : All
  5. Subj : NAP_TEST.PAS
  6. ────────────────────────────────────────────────────────────────────────────────}
  7. Program NAP_TEST;
  8.  
  9. Uses
  10.     DOS, NAP_DRAW;
  11.  
  12. Var
  13.    OutFile : Text;
  14.  
  15. Begin
  16.    Assign(OutFile,'TEST.NAP');
  17.    Rewrite(OutFile);
  18.    PelSize.X := 0;               {Change pel size to (0,0)}
  19.    PelSize.Y := 0;
  20.  
  21.    Write(OutFile,N_Reset(3,2,True,True,True,True,True,FALSE,True));
  22.    Write(OutFile,N_Domain);
  23.                       {Do a Reset, don't reset Macros, an existing program}
  24.                       {may have soem set up                               }
  25.    Write(OutFIle,N_SelectColor(10));             {Let's select color 10   }
  26.    Write(OutFile,NAPSetColor+N_SetColor(7,0,0)); {And make it pure green  }
  27.    Write(OutFile,N_Text(4,8));                   {Make Text Size 4x8      }
  28.    Write(OutFile,PointSetAbs+N_POINT(127,100));  {Output a starting point }
  29.    Write(OutFile,'This should start at the centre');
  30.    Write(OutFile,N_SelectColor(7));              {Change color to 7, white}
  31.    Write(OutFile,PointSetAbs+N_Point(0,192));
  32.    Write(OutFile,'This is in the top left and white');
  33.    Write(OutFile,N_SelectColor(9)); 
  34.    Write(OutFile,SetRectF+N_POINT(0,0)+N_Point(255,10)); 
  35.                       {Draw a filled rectangle from (0,0) to (255,10)     }
  36.                       {First point is a starting point, second is relative}
  37.    Write(OutFile,N_SelectColor(11));
  38.    Write(OutFile,SetArcFilled+N_POINT(10,100)+N_POINT(50,0));
  39.                       {Draw a filled circle starting at (10,100) and going}
  40.                       {out to (60,100). Remember second point is relative }
  41.    Writeln(OutFile);  {Do a writeln to finish line off                    }
  42.    Close(Outfile);
  43. End.